home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Examples / Programming - drawing / Lissajous program < prev    next >
Text File  |  1996-05-09  |  854b  |  36 lines
  1. {
  2. The following program draws a data set [xi,yi] of the form
  3.    
  4.         xi = sin(a*i),  yi = cos(a*i).
  5.     
  6. To compile this program, select 'Add to Menu' from the 'Misc' menu.
  7. To run this program, select 'Lissajous' from the  'Misc' menu.
  8. } 
  9.    
  10.  
  11. program Lissajous;
  12.  
  13.   const
  14.     hOffset = 220;
  15.     vOffset = 220;
  16.     hZoom = 200;
  17.     vZoom = 200;
  18.  
  19. var
  20.   nrPoints,i: integer;
  21.   a,b: real;
  22.   
  23. begin
  24.   nrPoints := 400;                                     { default values }
  25.   a := 1;  b := 3;
  26.   Input('Number of points',nrPoints,a,b);  { get the values from user }
  27.  
  28.   MoveTo(hZoom * sin(a*0) + hOffset, vZoom * cos(b*0) + vOffset);
  29.   OpenPoly(0, false);                      { merge lines into a polygon }
  30.   for i := 1 to nrPoints do begin          { calculate the points }
  31.     LineTo(hZoom * sin(a*i) + hOffset, vZoom * cos(b*i) + vOffset);
  32.   end;
  33.   ClosePoly;
  34. end;
  35.  
  36.